Gallup Trust EDA

#  Data Ingest
KnightABS.df <- read_sav("Gallup Source Data/Knight Foundation 2019-2020 ABS Public Release Data.SAV")

# sanity check
if (interactive()) {
  KnightABS.df %>% ExPanD(df=., export_nb_option=TRUE)
}

# Recode for R standards
## missing value codes
## value labels -> factors
kg.df <- KnightABS.df
kg.df %<>% to_factor(.,ordered=TRUE)
kg.df %<>% mutate(across(where(is.factor),function(x)fct_recode(x,NULL="No answer")))
kg.df %<>% mutate(across(where(is.factor),function(x)fct_recode(x,NULL="Undesignated")))
kg.df %<>% mutate(across(where(is.factor),function(x)fct_explicit_na(x,na_level="(Missing)")))
# to_factor drops var  lables -- restore these
var_label(kg.df)<-var_label(KnightABS.df)

# Cluster / of responses - factor analysis?
require(factoextra)
pca.res<-prcomp(kg.df %>% transmute(across(where(is.factor),as.numeric)),scale=TRUE,na.omit=TRUE)

In prcomp.default(kg.df %>% transmute(across(where(is.factor), as.numeric)), 
    scale = TRUE, na.omit = TRUE) :
 extra argument 㤼㸱na.omit㤼㸲 will be disregarded

 fviz_eig(pca.res)

 
 fviz_pca_var(pca.res, col.var = "contrib",  gradient.cols = c("#00AFBB", "#E7B800", "#FC4E07"), repel = TRUE )

NA

ggplotly(trustplot2)

Use of `map_df$x` is discouraged. Use `x` instead.Use of `map_df$y` is discouraged. Use `y` instead.Use of `map_df$group` is discouraged. Use `group` instead.`group_by_()` is deprecated as of dplyr 0.7.0.
Please use `group_by()` instead.
See vignette('programming') for more help
This warning is displayed once every 8 hours.
Call `lifecycle::last_warnings()` to see where this warning was generated.

Warning messages:
1: In readChar(file, size, TRUE) : truncating string with embedded nuls
2: In readChar(file, size, TRUE) : truncating string with embedded nuls
3: In readChar(file, size, TRUE) : truncating string with embedded nuls

# Multivariate predictors of overall trust in media (Q5)